home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
tugi
/
user.tug
< prev
next >
Wrap
Text File
|
1991-10-19
|
5KB
|
294 lines
TUGi_macro(v1.0)
sample_01()
{
/***************************************/
/** すずけんさんの絵 **/
/****************************************/
/* を~~い(^_^;)元気かえ?? 濁音(兄) (^^;;; */
/* (ちょ)おや?とうとう兄弟と認めたのかや?(^^; */
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" すずけんさんの作品です",
" "
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\SUZUKEN\MONO.TIF
Q:\DATA\SUZUKEN\SUZU00.TIF
);
);
/***************************************/
/** あやちゃん **/
/***************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" 絵画喫茶ウェートレス、あやさんの作品です",
" "
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\AYAGRAPH\TRAU_16.TIF
Q:\DATA\AYAGRAPH\HANA.TIF
Q:\DATA\AYAGRAPH\HANA2.TIF
);
);
/**********************/
/** オラタンさん **/
/**********************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" ★彡オラタンさんのデータです。",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\ORA_TIF\ORA_2.TIF
Q:\DATA\ORA_TIF\ORA_3.TIF
Q:\DATA\ORA_TIF\ORA_4.TIF
Q:\DATA\ORA_TIF\ORA_7.TIF
Q:\DATA\ORA_TIF\ORA_8.TIF
Q:\DATA\ORA_TIF\ORA_5.TIF
);
);
/****************/
/** ぴ~さん **/
/****************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" ぴーさんの作品です",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\PI_NO_E\PI9_8.TIF
Q:\DATA\PI_NO_E\PI9_9.TIF
Q:\DATA\PI_NO_E\PI0_0.TIF
Q:\DATA\PI_NO_E\PI1_1.TIF
Q:\DATA\PI_NO_E\PI2_1.TIF
Q:\DATA\PI_NO_E\PI2_2.TIF
Q:\DATA\PI_NO_E\PI2_3.TIF
Q:\DATA\PI_NO_E\PI3_1.TIF
Q:\DATA\PI_NO_E\PI4_1.TIF
Q:\DATA\PI_NO_E\PI4_2.TIF
Q:\DATA\PI_NO_E\PI4_3.TIF
Q:\DATA\PI_NO_E\PI5_1.TIF
Q:\DATA\PI_NO_E\PI6_1.TIF
Q:\DATA\PI_NO_E\PI6_2.TIF
Q:\DATA\PI_NO_E\PI7_1.TIF
Q:\DATA\PI_NO_E\PI7_2.TIF
Q:\DATA\PI_NO_E\PI7_3.TIF
Q:\DATA\PI_NO_E\PI8_1.TIF
Q:\DATA\PI_NO_E\PI8_2.TIF
Q:\DATA\PI_NO_E\PI9_1.TIF
Q:\DATA\PI_NO_E\PI9_2.TIF
Q:\DATA\PI_NO_E\PI9_3.TIF
Q:\DATA\PI_NO_E\PI9_4.TIF
Q:\DATA\PI_NO_E\PI9_5.TIF
Q:\DATA\PI_NO_E\PI9_6.TIF
Q:\DATA\PI_NO_E\PI9_7.TIF
);
);
/***************************************/
/** new towns **/
/****************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" てーるさんデザインの、新型TOWNSです。",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\NEWTOWNS\TOWNSMX2.TK4
);
);
/***************************************/
/** giru **/
/***************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" ギルドラムさんの作品です。",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\GIRU\MERMAID.TIF
Q:\DATA\GIRU\MERMAID2.TIF
Q:\DATA\GIRU\FLOWER.TIF
);
);
/***************************************/
/** TAKI **/
/****************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" たきさんの作品です<^_^>",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\TAKI_C_1\DODO.TIF
Q:\DATA\TAKI_C_1\SUMMER.TIF
Q:\DATA\TAKI_C_1\KENKEN.TIF
);
);
/***************************************/
/** CHO?麗子ちゃんかな?(^^; **/
/****************************************/
/* 麗子っちゃぁぁぁぁぁぁ~ん!♪(^^;(^^;(^^; */
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" X-RAYさんの作品です",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\CHO\CHO.TIF
Q:\DATA\SMOKE\SMOKE.P25
Q:\DATA\T_MAN\T_MAN.P25
Q:\DATA\T_MANC\T_MANC.P25
);
);
/***************************************/
/** たくまさんですね **/
/***************************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" たくまさんの作品です",
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\DATA\TAKUMA\HYPER.TIF
Q:\DATA\TAKUMA\CD_ROM.TIF
Q:\DATA\TAKUMA\DARK_J.TIF
Q:\DATA\TAKUMA\STAND.TIF
Q:\DATA\TAKUMA\FRACTAL.TIF
Q:\DATA\TAKUMA\MUSIC.TIF
Q:\DATA\TAKUMA\MUSIC_DX.TIF
Q:\DATA\TAKUMA\BALL.TIF
);
);
/* もっかい画面を初期化する訳ぢゃ(^_^;) */
/****************/
/** お終いっ **/
/****************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" ",
" ",
" 他のデータも見てみますか?"
);
wind_close();
Question(
MAIN2SB2.TUG
);
END.TUG
}